10 BO=7:BG=9:CH=1:GOSUB3100:POKE53272,23
20 CLR:GOSUB3110:FG=0:PRINT"[200]OW LONG WILL YOU MANAGE YOUR FARM";
30 INPUTQQ$:QQ=VAL(QQ$):IFQQ=0THENGOSUB2930
40 IFFG<>0THEN20
50 FORZZ=1TOQQ:GOSUB2110:GOSUB2150:IFZZ=1THENGOSUB2190
60 BO=7:BG=6:CH=1:GOSUB3100
70 PRINT"[147] [217]EAR:[146]";ZZ:PRINT" [208]LANTING SEASON SELECTION: [146]
80 [153][163]5)"F1 KEY...(null)ARKET NEWS
90 PRINTTAB(5)"F3 KEY...[217]OUR FINANCIAL STATUS
100 [153][163]5)"F5 KEY...(null)LANTING
110 PRINTTAB(5)"F7 KEY...[211]ELL CROPS ON FUTURES
120 [153][163]8)"(null)HAT IS YOUR SELECTION?
130 GOSUB2950
140 IFASC(A$)<133ORASC(A$)>136THEN130
150 AA=ASC(A$)-132:ONAAGOSUB1150,1370,1520,1890
160 IFAA=3THEN180
170 GOTO60
180 BO=7:BG=7:CH=6:GOSUB3100
190 PRINT"[147]":PRINTTAB(10)"[217]OUR CROPS ARE GROWING.
200 FX[178]0:[129]J[178]1[164]3:FX[178]FX[170](TS(J)[172][181]((BP(J)[172]FP(J))[172]100[170].5)[173]100):[130]
210 FX[178][181](FX[172]100[170].5)[173]100:SB[178]0
220 [129]J[178]1[164]3:SB[178]SR(J)[170]SB:[130]
230 [129]J[178]1[164]3:SR(J)[178]SR(J)[171]TS(J):[130]
240 [141]2200:[141]2360
250 GT[178]0:[129]J[178]1[164]3:GT[178]GT[170](TY(J)[172][181](YP(J)[172]100[170].5)[173]100):[130]
260 PT[178]0:[129]J[178]1[164]3:PT[178](FU(J)[172]TA(J))[170]PT:[130]:PT[178][181](PT[172]GA[172]100[170].5)[173]100
270 BO[178]2:BG[178]2:CH[178]1:[141]3100
280 [153]"LOAD":[153][163]5)"   LEFT$ARVEST (null)IME ON THE ASCARM   WAIT
290 GOSUB3020:PRINT"[195]ROP[146]     [211]ELLING PRICE[146]    [217]IELD[146]
300 [129]J[178]1[164]3:RR[178]TA(J):[139]RR[178]0[167]RR[178]1
310 TM[178]YP(J):[141]3030:YP$[178]TM$:YP(J)[178][197](TM$)
320 TM[178]TY(J):[141]3030:TY$[178]TM$:TY(J)[178][197](TM$)
330 [153]N$(J);[163]13)YP$;[163]33[171][195](TY$))[181](TY(J)):[130]
340 [153]"RIGHT$T IS NOW TIME TO PAY YOUR BILLS AND TO SELL YOUR CROPS.":[141]3010
350 [153]"LENURRENT PEEKANK PEEKALANCE";:TM[178]BA:[141]3030:BA$[178]TM$:BA[178][197](TM$)
360 [153][163]33[171][195](BA$))BA$
370 [153]"ASCUTURES LENROP LENHECK";:TM[178]FX:[141]3030:FX$[178]TM$:[153][163]33[171][195](FX$))FX$
380 [153]"(null)OTAL (null)IELD";:TM[178]GT:[141]3030:GT$[178]TM$:GT[178][197](TM$)
390 [153][163]33[171][195](GT$))GT$
400 [153]"(null)OAN (null)AYMENT STR$UE";:TM[178][181]((LO[173]3)[172]100[170].5)[173]100:[141]3030
410 [153][163]33[171][195](TM$))TM$:LP[178][181]([197](TM$)[172]100[170].5)[173]100
420 [153]"LEFT$ARVESTING LENOSTS";:TM[178]HV:[141]3030:HV$[178]TM$:[153][163]33[171][195](HV$))HV$
430 HV[178][181]([197](TM$)[172]100[170].5)[173]100
440 [153]"LENOST FOR 200 ATNCRES";:TM[178][181](CE[172]100[170].5)[173]100[172]200:[141]3030:CE$[178]TM$
450 [153][163]33[171][195](CE$))CE$
460 [153]"ASCUEL VALXPENSE";:TM[178]PT:[141]3030:PT$[178]TM$:PT[178][181]([197](TM$)[172]100[170].5)[173]100
470 [153][163]33[171][195](PT$))PT$
480 [153]"(null)VERHEAD VALXPENSE";:TM[178]OV:[141]3030:OV$[178]TM$:[153][163]33[171][195](OV$))OV$
490 OV[178][181]([197](TM$)[172]100[170].5)[173]100
500 [153]"LENROP (null)TORAGE ASCEES";:TM[178](12[172]SB[172]0.015):[141]3030:SB$[178]TM$
510 SB[178][181]([197](TM$)[172]100[170].5)[173]100
520 [153][163]33[171][195](SB$))SB$:[141]3010
530 [153]"(null)OTAL ATNSSETS=WAIT";:TM[178]BA[170]FX[170]GT:[141]3030:AA$[178]TM$
540 [153][163]33[171][195](AA$))AA$
550 [153]"(null)OTAL STR$EBITS=WAIT";
560 TM[178]LP[170]HV[170]OV[170]PT[170]SB[170](CE[172]200):[141]3030:DT$[178]TM$:DT[178][197](TM$)
570 [153][163]33[171][195](DT$))DT$:[141]2940
580 [129]J[178]1[164]3:[139]TY(J)[178]0[167]730
590 [153]"LOADLEFT$OW MANY BUSHELS OF ";N$(J);" DO YOU WISH":[153]"TO SELL?
600 PRINT"[217]OU HAVE A MAXIMUM OF ";TY(J);" TO SELL.
610 FG[178]0:X$[178]"":[133]X$:[139]X$[178]""[167]590
620 X[178][197](X$)
630 [139]X[177]TY(J)[167][153]"(null)OU DON'T HAVE ";X;"BUSHELS!":[141]3000:[137]590
640 [153]X;"BUSHELS OF ";N$(J);" WOULD SELL":[153]"FOR $";:TM[178]X[172]YP(J):[141]3030
650 [153]TM$:[141]3020
660 [153]"RIGHT$S ";X;"BUSHELS OF ";N$(J);" OKAY?
670 PRINT"[208]RESS F1[146] TO CHANGE, F3[146] TO SELL
680 [141]2950
690 [139]A$[178][199](133)[167]590
700 [139]A$[179][177][199](134)[167]680
710 BA[178]BA[170]([181](X[172]YP(J)[172]100[170].5)[173]100)
720 SR(J)[178][181](TY(J)[171]X[170]SR(J))
730 [130]
740 BA[178][181]((BA[170]FX)[172]100[170].5)[173]100
750 [139]LO[178]0[167]850
760 [153]"LOADLEFT$OW MUCH OF YOUR LOAN DO YOU
770 PRINT"WISH TO PAY OFF?  [205]INIMUM PAYMENT
780 [153]"IS $";:TM[178][181]((LO[173]3)[172]100[170].5)[173]100:[141]3030:[153]TM$
790 [153]"(null)OU OWE A TOTAL OF $";:LO[178][181](LO[172]100[170].5)[173]100:[153]LO
800 FG[178]0:[133]A
810 [139]A[179]TM[167][137]760
820 [139]A[177]LO[167]A[178]LO
830 BA[178][181]((BA[171]A)[172]100[170].5)[173]100:LO[178](LO[171]A)[172]1.12::LO[178][181](LO[172]100[170].5)[173]100
840 [139]LO[179]0[167]LO[178]0
850 BA[178]BA[171][181](CE[172]200[172]100[170].5)[173]100
860 BA[178]BA[171][181](OV[172]100[170].5)[173]100
870 BA[178]BA[171][181](HV[172]100[170].5)[173]100
880 BA[178]BA[171][181](PT[172]100[170].5)[173]100
890 BA[178]BA[171][181](SB[172]100[170].5)[173]100
900 [139]BA[179]0[167][141]2620
910 [129]J[178]1[164]3:TY(J)[178]0:[130]
920 [129]J[178]1[164]3:TS(J)[178]0:[130]:[130]
930 [153]"LOAD":[153][163]5)"    VALND OF CHR$AME (null)ALLY   WAIT
940 PRINT"[195]URRENT [194]ANK [194]ALANCE = $";:TM=BA:GOSUB3030:PRINTTM$:BA=VAL(TM$)
950 GOSUB3010
960 PRINT"[195]ROPS IN [211]TORAGE:
970 [153]" LENROP WAIT  PEEKUSHELS IN (null)TORAGE WAIT
980 XX=0
990 FORJ=1TO3:IFSR(J)<0THENSR(J)=0
1000 PRINTN$(J);:TM=SR(J):GOSUB3030
1010 PRINTTAB(22-LEN(TM$));INT(SR(J)):XX=XX+SR(J)*YP(J):NEXT
1020 PRINT"[211]TORED CROP CASH VALUE:";:TM=XX:GOSUB3030
1030 PRINTTAB(35-LEN(TM$));"$"TM$:XX=VAL(TM$):BA=BA+XX
1040 PRINT"[193]MOUNT OWED TO [194]ANK:";:TM=LO:GOSUB3030:PRINTTAB(35-LEN(TM$));"$"TM$
1050 LO=VAL(TM$):BA=BA-INT(LO*100+.5)/100
1060 IFBA>=20000THENZZ=1
1070 IFBA<20000THENZZ=2
1080 PRINT"[199]RAND [212]OTAL IN [194]ANK:";:TM=BA:GOSUB3030:BA=VAL(TM$)
1090 PRINTTAB(35-LEN(TM$));"$"TM$:PRINT
1100 ONZZGOSUB2780,2820
1110 PRINT"[215]OULD YOU LIKE TO TRY AGAIN?
1120 [141]2950:[139]A$[178]"Y"[167]10
1130 [139]A$[179][177]"N"[167]1120
1140 [128]
1150 [153]"LOAD":BO[178]1:BG[178]1:CH[178]0:[141]3100
1160 [153][163]8)"      (null)VAL(null)(null) (null)VAL(null)VALATN(null)VAL     ":[141]3020
1170 IR$[178][196]([181]((IR[171]1)[172]100))
1180 [153]"(null)EARLY RIGHT$NFLATION (null)ATE: ";[163]33)IR$;"%
1190 TM=GA:GOSUB3030:GA$=TM$:GA=VAL(TM$)
1200 PRINT"[198]UEL COST (PER GALLON) :";TAB(33-P)"$"GA$
1210 TM=HS:GOSUB3030:HS$=TM$:HS=VAL(TM$)
1220 PRINT"[200]ERBICIDE COST PER UNIT:";TAB(33-P)"$"HS$
1230 TM=IS:GOSUB3030:IS$=TM$:IS=VAL(TM$)
1240 PRINT"[201]NSECTICIDE COST PER UNIT:";TAB(33-P)"$"IS$
1250 TM=OV:GOSUB3030:OV$=TM$:OV=VAL(TM$)
1260 PRINT"[207]VERHEAD COSTS:";TAB(33-P)"$"OV$
1270 TM=CE:GOSUB3030:CE$=TM$
1280 PRINT"[195]OST PER ACRE:";TAB(33-P)"$"CE$:GOSUB3010
1290 PRINTTAB(13)"  [211]EED PRICES
1300 [153]"CHR$RAIN SEED COST PER BUSHEL
1310 FORJ=1TO3:PRINTN$(J);":";:TM=BS(J):GOSUB3030:BS(J)=VAL(TM$)
1320 PRINTTAB(33-P)"$"TM$:NEXT:PRINT:GOSUB3010
1330 PRINTTAB(10)" [198]UTURES [205]ARKET [208]RICE ":PRINT
1340 FORJ=1TO3:PRINTN$(J);":";:TM=BP(J)*FP(J):GOSUB3030
1350 PRINTTAB(33-P)"$"TM$:NEXT:PRINT
1360 GOSUB2940:RETURN
1370 BO=2:BG=0:CH=1:GOSUB3100
1380 PRINT"[147]    [217]OUR [198]INANCIAL [211]TATUS  ":GOSUB3010
1390 TM=BA:GOSUB3030:BA=VAL(TM$)
1400 PRINT"[211]AVINGS [193]CCOUNT [194]ALANCE:";TAB(25-P)"$"BA
1410 TM=LO:GOSUB3030:LO=VAL(TM$)
1420 PRINT"[217]OU OWE THE BANK:";
1430 IFLO=0THENPRINTTAB(28)"------":GOTO1450
1440 PRINTTAB(25-P)"$"TM$
1450 PRINT"":GOSUB3010:PRINT"        [195]ROPS PRESENTLY IN STORAGE ":PRINT:X=0
1460 PRINTTAB(9)"[195]ROP";TAB(20)"[194]USHELS
1470 [129]J[178]1[164]3:[139]SR(J)[179]1.0[167]SR(J)[178]0
1480 [153][163]8)N$(J);[163]22)SR(J):X[178]X[170]SR(J):[130]
1490 [153]"CHR$RAIN (null)TORAGE ASCEE: $";:TM[178][181](X[172].015):[141]3030
1500 [153]TM$" PER MONTH.
1510 GOSUB2940:RETURN
1520 BO=5:BG=5:CH=1:GOSUB3100
1530 PRINT"[147]";TAB(5)"  [208]LANTING [212]IME [207]N THE [198]ARM  
1540 [153]"(null)OU HAVE 200 ACRES TO PLANT,DIVIDED INTO";
1550 [153]"5 FIELDS OF 40 ACRES EACH.
1560 PRINT"[198]IELDS 1-3 ARE AVERAGE OR SLIGHTLY ABOVEAVERAGE YIELDERS.
1570 [153]"ASCIELDS 4 AND 5 ARE SLIGHTLY LESS THAN   AVERAGE PRODUCERS.
1580 GOSUB3010
1590 PRINTTAB(34)"[195]ROP
1600 [129]J[178]1[164]5:[153]"LENROP TO BE PLANTED IN FIELD ";J
1610 [153]"1=(null)HEATWAIT   2=LENORNWAIT  3=(null)OYBEANSWAIT
1620 GOSUB2950
1630 IFASC(A$)<49ORASC(A$)>51THENGOSUB2980:GOTO1620
1640 FL(J)=VAL(A$):PRINT"[145][145]";TAB(33)FL(J):NEXT
1650 PRINT"[147][193]LL YOUR FIELDS ARE READY FOR PLANTING.
1660 [153]"(null)HE TOTALS ARE:":[129]J[178]1[164]3:X[178]0:[129]JJ[178]1[164]5
1670 [139]FL(JJ)[178]J[167]X[178]X[170]40
1680 [130]:TA(J)[178]X:[153]X;" ACRES OF ";N$(J);" PLANTED.":[130]
1690 TM[178]0:[129]J[178]1[164]3:TM[178]TM[170](TA(J)[172]BS(J)[172]BB(J)):[130]:TM[178][181]((TM[170].005)[172]100)[173]100
1700 [153]"(null)EED LENOSTS: ";:[141]3030:TM[178][197](TM$):[153][163]30[171][195](TM$))"$"TM$
1710 BH[178]BA:[153]"PEEKANK PEEKALANCE: $";:BA[178]BA[171]TM:TM[178]BA:[141]3030
1720 [153][163]30[171][195](TM$))"$"TM$
1730 [153]"RIGHT$S THIS OKAY? ((null)/(null))
1740 GOSUB2950:IFA$="N"THENBA=BH:GOTO1530
1750 IFA$<>"Y"THEN1740
1760 PRINT"[145][200]OW MANY UNITS PER ACRE OF INSECTICIDE  DO YOU WISH TO APPLY?
1770 X$[178]"":[133]X$:[139]X$[178]""[167]1760
1780 [139][198](X$)[179]48[176][198](X$)[177]57[167][141]2930:[137]1760
1790 X[178][197](X$)
1800 BA[178]BA[171](X[172]200[172]IS):IN[178](([186](X)[171]5)[173]5)[170]1
1810 [153]"LEFT$OW MANY UNITS PER ACRE OF HERBICIDE DO YOU WISH TO APPLY?"
1820 X$[178]"":[133]X$:[139]X$[178]""[167]1810
1830 [139][198](X$)[179]48[176][198](X$)[177]57[167][141]2930:[137]1810
1840 X[178][197](X$)
1850 BA[178]BA[171](X[172]200[172]HS):HE[178]((([186](X)[171]4.4)[173]5)[170]1)
1860 [153]"(null)RESENT PEEKANK PEEKALANCE: $";:TM[178]BA:[141]3030:[153]TM$:[141]3000
1870 [139]BA[179]0[167]2620
1880 [142]
1890 [153]"LOAD   CHR$RAIN ASCUTURES (null)ARKET (null)ALES   
1900 PRINT"[217]OU HAVE THE FOLLOWING AMOUNTS OF
1910 [153]"GRAIN PRESENTLY IN STORAGE:":[153]
1920 [129]J[178]1[164]3:[139]SR(J)[179]0[167]SR(J)[178]0
1930 [153]N$(J),[181](SR(J));"BUSHELS":[130]:[141]3010
1940 [153]"CHR$RAIN (null)ARKET ASCUTURES (null)RICES
1950 FORJ=1TO3:PRINTN$(J),"$";:TM=BP(J)*FP(J):GOSUB3030:PRINTTM$:NEXT
1960 PRINT"[215]HICH GRAIN WOULD YOU LIKE TO SELL?
1970 [153]"F1WAIT (null)HEAT  F3WAIT=LENORN  F5WAIT=(null)OYBEANS  F7WAIT=(null)ONE
1980 GOSUB2950:IFASC(A$)<133ORASC(A$)>136THEN1980
1990 J=ASC(A$)-132::IFJ=4THENRETURN
2000 IFSR(J)=0THENPRINT"[217]OU DON'T HAVE ANY ";N$(J);"!":GOTO1960
2010 PRINT"[200]OW MANY BUSHELS OF ";N$(J);" DO YOU
2020 [153]"WANT TO SELL (UP TO ";SR(J);" BUSHELS)?
2030 INPUTK
2040 IFK>SR(J)THENPRINT"[217]OU DON'T HAVE THAT MUCH GRAIN!":GOTO2010
2050 SR(J)=SR(J)-K:IFSR(J)<0THENSR(J)=0
2060 TS(J)=K
2070 PRINT"[215]OULD YOU LIKE TO SELL MORE GRAIN?
2080 [141]2960:[139]A$[178]"Y"[167]1890
2090 [139]A$[179][177]"N"[167]2080
2100 [142]
2110 X[178][181](([187](.)[172]7[170]1))[173]100
2120 [139]X[177].05[167]2140
2130 IR[178]1[170]X:[137]2150
2140 IR[178]1
2150 [129]J[178]1[164]3:BS(J)[178][181](BS(J)[172]IR[172]100)[173]100:[130]
2160 GA[178][181](GA[172]IR[172]100[170].5)[173]100:IS[178]IS[172](IR[170].01):HS[178]HS[172]IR:OV[178]OV[172](IR[170].01):HV[178]HV[172]IR
2170 CE[178][181](CE[172](IR[170].01)[172]100[170].5)[173]100
2180 [129]J[178]1[164]3:BP(J)[178]BP(J)[172](IR[171].01):[130]:[142]
2190 [129]J[178]1[164]3:FP(J)[178]1.05:[130]:[142]
2200 X[178][187](.)[172](0.99[171].01)[170].01
2210 [139]X[179].45[167]XX[178]1.0[170]X:[137]2250
2220 [139]X[177].80[167]XX[178]X:[137]2250
2230 [139]X[177].45[175]X[179].5[167]XX[178]1.03:[137]2250
2240 XX[178]1.0
2250 X[178][187](.)[172](.99[171].01)[170].01
2260 [139]X[179].1[167]XX[178]XX[170]1[170]X:[137]2300
2270 [139]X[177].75[167]XX[178]XX[170]X:[137]2300
2280 [139]X[177].4[175]X[179].5[167]XX[178]XX[170]1.02:[137]2300
2290 XX[178]XX[170]1
2300 XX[178]XX[173]2
2310 [139]X[179].2[167]IN[178]IN[173]2:HE[178]HE[173]2
2320 SF[178]IN:[139]IN[177]1.1[167]SF[178]1.1
2330 HF[178]HE:[139]HF[177]1.1[167]HF[178]1.1
2340 [129]J[178]1[164]3:TY(J)[178]0:[130]
2350 [129]J[178]1[164]5:K[178]FL(J):TY(K)[178][181](40[172]FF(J)[172]BY(K)[172]XX[172]HF[172]SF[170]TY(K)):[130]:[142]
2360 [129]J[178]1[164]3:[141]2580:DM(J)[178]XX:[141]2580:DC(J)[178]XX:[141]2580:EM(J)[178]XX
2370 [141]2580:FC(J)[178]XX:[130]
2380 X[178]0
2390 X[178]0:[129]J[178]1[164]3:X[178]DM(J)[170]X:X[178]X[170]DC(J):X[178]X[170]EM(J):X[178]X[170]FC(J):FA(J)[178]X[173]4:X[178]0:[130]
2400 [129]J[178]1[164]3:YP(J)[178]FA(J)[172]BP(J):[130]
2410 X[178]0:[129]J[178]1[164]3
2420 [139]DC(J)[177]1.05[167]XX[178].95:[137]2450
2430 [139]DC(J)[179].9[167]XX[178]1.1:[137]2450
2440 XX[178]1
2450 X[178]X[170]XX
2460 [139]EM(J)[177]1.05[167]XX[178].95:[137]2490
2470 [139]EM(J)[179].95[167]XX[178]1.12:[137]2490
2480 XX[178]1
2490 X[178]X[170]XX
2500 [139]FC(J)[177]1.1[167]XX[178].8:[137]2530
2510 [139]FC(J)[179].97[167]XX[178]1.09:[137]2530
2520 XX[178]1
2530 X[178]X[170]XX:X[178]X[173]3
2540 [139]X[178]1[167]X[178]1.03
2550 FP(J)[178]X
2560 X[178]0
2570 [130]
2580 X[178][187](.)[172](.99[171].01)[170].01
2590 [139]X[179].45[167]XX[178]X[170]1:[142]
2600 [139]X[177].70[167]XX[178]X:[142]
2610 XX[178]1:[142]
2620 [153]"LOAD(null)OU NEED TO BORROW MONEY TO KEEP FARMING
2630 PRINT"[217]OUR BALANCE IN THE BANK HAS
2640 [153]"DROPPED BELOW $0.  (null)O MEET YOUR PAYMENTS
2650 PRINT"[145]YOU WILL NEED TO BORROW SOME MONEY FROM THE BANK (UP TO $50,000).
2660 [153]"(null)INIMUM LOAN PAYMENTS ARE ONE-THIRD OF  LOAN DUE AT 12% INTEREST.
2670 IF0-BA+LO>50000THEN2860
2680 PRINT"[217]OU WILL NEED TO BORROW AT LEAST:":PRINT"$";0-(INT(BA*100+.5)/100)
2690 PRINT"[217]OU CAN BORROW UP TO $";50000-INT(LO*100+.5)/100
2700 PRINT"[217]OU OWE A GRAND TOTAL OF $";INT(LO*100+.5)/100
2710 PRINT"[200]OW MUCH DO YOU WISH TO BORROW?
2720 [133]X$:X[178][197](X$):[139][197](X$)[178]0[167]2720
2730 [139]LO[170]X[177]50000[167][153]"(null)ORRY,YOUR CREDIT LINE IS $50,000":[137]2710
2740 [139]X[179][181](0[171]BA[170].005)[167][153]"(null)HAT WILL NOT BE ENOUGH, TRY AGAIN":[137]2710
2760 LO[178]LO[170]X:BA[178][181]((BA[170]X)[172]100[170].5)[173]100:[139]LO[179]0[167]LO[178]0
2770 LO[178]LO[172]1.12:[142]
2780 BO[178]7:BG[178]4:CH[178]0:[141]3100
2790 [153]"LENONGRATULATIONS!!  (null)OU HAVE MANAGED THE
2800 PRINT"NEARLY IMPOSSIBLE TASK OF MAKING MONEY
2810 [153]"AT FARMING.  (null)HE PEEKANK CONSIDERS YOU A":[153]"GOOD RISK.":[142]
2820 BO[178]6:BG[178]6:CH[178]1:[141]3100
2830 [153]"(null)OU HAVE PROVEN YOURSELF A VERY POOR
2840 PRINT"FARMER! [217]OU LOST MONEY, AND NOW YOUR
2850 [153]"FARM MUST BE SOLD TO PAY YOUR CREDITORS!":[142]
2860 [141]3000:[141]3000:[153]"LOAD     (null)ORRY, YOU ARE BANKRUPT.           WAIT
2870 PRINT"[217]OU HAVE MANAGED TO RUN YOUR CREDIT
2880 [153]"LINE TO THE LIMIT, AND NOW YOU ARE
2890 PRINT"BROKE!  [217]OU OWE CONSIDERABLE BACK TAXES
2900 [153]"AND YOUR FARM WILL BE SOLD AT A
2910 PRINT"SHERIFF'S AUCTION TO PAY YOUR DEBTS.
2920 [153]"":[137]1110
2930 FG[178]1:[153]"(null)OU MUST ENTER A NUMBER HERE.ONON":[141]3000:[142]
2940 [153]"      (null)RESS ANY KEY TO CONTINUE       WAIT":[141]2950:[142]
2950 [151]198,0
2960 [161]A$:[139]A$[178]""[167]2960
2970 [142]
2980 [153]"(null)OU MUST ENTER 1,2, OR 3 HERE.":[141]3000:[142]
2990 [153]"ON                                ON":[142]
3000 [129]T[178]1[164]2000:[130]:[142]
3010 [153]"--------------------------------------":[142]
3020 [153]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[142]
3030 TM$[178][196]([181](TM[172]100[170].5)[173]100)
3040 P[178]0:[129]A[178]1[164][195](TM$)
3050 [139][202](TM$,A,1)[178]"."[167]P[178]A[171]1
3060 [130]:[139]P[178]0[167]TM$[178]TM$[170][199](46):P[178]1
3070 [139][202](TM$,([195](TM$)[171]2),1)[178][199](46)[167]3090
3080 TM$[178]TM$[170][199](48):[137]3040
3090 [142]
3100 [151]53280,BO:[151]53281,BG:[151]646,CH:[142]
3110 [153]"LOAD";[163]13)" (null)LEFT$VAL ASCATN(null)(null) CHR$ATN(null)VAL 
3120 FORJ=1TO3:READN$(J):NEXT:FORJ=1TO3:READBP(J):NEXT:FORJ=1TO3:READFU(J):NEXT
3130 FORJ=1TO3:READBY(J):NEXT:FORJ=1TO3:READBB(J):NEXT:FORJ=1TO3:READBS(J):NEXT
3140 READBA:READLO:READGA:READCE:FORJ=1TO3:SR(J)=0:NEXT:READIS:HS=IS
3150 FORJ=1TO5:READFF(J):NEXT:FORJ=1TO3:READDF(J):NEXT:FORJ=1TO3:READCF(J):NEXT
3160 FORJ=1TO3:READEF(J):NEXT:FORJ=1TO3:READOF(J):NEXT:READOV:HV=2*OV
3170 BA$=STR$(BA):RETURN
3180 DATA"[215]HEAT","[195]ORN","[211]OYBEANS",2.80,2.33,6.30,50,85,60
3190 DATA62,100,31,1.5,.334,1.5,7,65,7.25,20000,0,1,70
3200 DATA1,1.1,1.03,1,.98,.9,.8,1.1,.82,1,1.1,1
3210 DATA1,.5,1.1,.6,.25,1.12,2000